10 CLS:PRINTTAB(20)"LOVETEST":PRINTTAB(20);STRING$(8,140)
20 PRINT:PRINT:PRINT"YOU WILL BE ASKED QUESTIONS IN A QUIZ.":PRINT"YOU REPLY 1,2,3 FOR 'NOT AT ALL TO VERY SLIGHT'"
30 PRINT"4,5,6 FOR 'SLIGHT TO MODERATE'":PRINT"7,8,9 FOR 'MODERATE TO STRONGLY'":PRINT" TO DESCRIBE IF YOU AGREE WITH THE STATEMENTS."
40 PRINT"BUT FIRST... ANSWER THIS.":INPUT"WHAT'S YOUR NAME";A$:INPUT"WHAT'S THE NAME OF THE SUBJECT";A$
50 PRINT"1. I THINK ABOUT "A$" MOST OF THE TIME";:INPUTA:L=L+A
60 PRINT"2. I WANT TO KNOW ALL I CAN ABOUT"A$;:INPUTA:L=L+A
70 PRINT"3. I AM STRONGLY ATTRACTED TO "A$;:INPUTA:L=L+A
80 PRINT"4. IF "A$" WERE SEEING SOMEONE ELSE, I'D BE JEALOUS";:INPUTA:L=L+A
90 PRINT"5. I'M OBSESSED WITH "A$" ; MY MIND IS ALWAYS ON THEM";:INPUTA:L=L+A
100 PRINT"6. I WANT TO BE WITH "A$" ALL THE TIME";:INPUTA:L=L+A
110 PRINT"7. I WOULD RATHER BE WITH "A$" THAN MY OTHER FRIENDS";:INPUTA:L=L+A
120 PRINT"8. I THRILL WHEN "A$" TOUCHES MY BODY";:INPUTA:L=L+A
130 PRINT"9. I WANT "A$" TO KNOW ALL ABOUT ME";:INPUTA:L=L+A
140 PRINT"10. I LIKE TO SEE SIGNS SHOWING "A$"'S ATTRACTION TO ME";:INPUTA:L=L+A
150 PRINT"11. I WOULD BE STRONGLY DEPRESSED IF "A$" LEFT ME";:INPUTA:L=L+A
160 PRINT"12. TO ME, "A$" IS MY IDEAL CONPANION";:INPUTA:L=L+A
170 PRINT"13. I WANT "A$"'S AFFECTION";:INPUTA:L=L+A
180 PRINT"14. I GET DEPRESSED WHEN THING GO WRONG BETWEEN US";:INPUTA:L=L+A
190 PRINT"15. I FEEL HAPPY WHEN I MAKE "A$" HAPPY";:INPUTA:L=L+A
200 PRINT:PRINT:PRINTTAB(20)"WAIT........."
300 FORI=1TO300:NEXTI
400 L=100*L:A=INT(L/135)
500 PRINT"YOU SCORED "A;"%.  THIS MEANS,"
510 IFA<11THENPRINT"YOU FEEL LITTLE IF ANY TRUE LOVE FOR "A$"."
511 IF(A>10)AND(A<23)THENPRINT"YOU FEEL ALMOST NO TRUE LOVE FOR "A$"."
512 IF(A>22)AND(A<34)THENPRINT"YOU HAVE VERY SLIGHT LOVE FOR "A$"."
513 IF(A>33)AND(A<45)THENPRINT"YOU FEEL SLIGHT LOVE FOR "A$"."
514 IF(A>44)AND(A<56)THENPRINT"YOU FEEL ALMOST MODERATELY IN LOVE WITH "A$"."
515 IF(A>55)AND(A<67)THENPRINT"YOU FEEL MODERATE LOVE FOR "A$"."
516 IF(A>66)AND(A<78)THENPRINT"YOU FEEL STRONG LOVE FOR "A$"."
517 IF(A>77)AND(A<89)THENPRINT"YOU FEEL DEEP LOVE FOR "A$"."
518 IFA>88THENPRINT"YOU ARE DEEPLY IN LOVE WITH "A$"."
